0 PRINT"[147]@[146][192] PHDBA)[146]5E')[146]DE()[146][193]* [146]F=[182][146]E9AD[176][146]G1'[146]X[169]BQ'H[146]P[174][146]X%'[146][169]GE'";
1 PRINT"P[146]B[166]([202][208][255][146];@D[@>;@E[@?[166][206][175] @D4'[220]C5[166]'[160] $> C#& [161]> _#%[174]Z'@^@O4[198][206][185][164]5[200]P[180][184]'[186]K";
2 PRINT"TC'>KUC[216][160]^@#[201][199]D[174]E[198][199]E[206]R7Z>KQ[206]7\>KX[206]7^>K@[219][204]1[168];[[184]V[192][193]'  CK[203]>DM [187], \+#[161][199]MNE";
3 PRINT"'[160]K[203]> Y:$M#[165]S%#[164]SI[196]MP[220][160]AD[162]D[161][200]D[164]D[163][166]83%[179]'S[169]3I[179]KS[171]PN [163]?H[200]X[169]H( [163]?[168]([200]P[255]8#[170][163]";
4 PRINT"[169]#[172][163][171]N)[166] [177]? W?#([195]&[206]F#L[195]J[174][203] @ [189]?.H[166] I?[200] [213]?[166] [213]?[204]H? [177]? W?#'[195]%[206]F#K[195]I[174]# A [189]";
5 PRINT"?.H[200] I?[166] [213]?[200] [213]?[204]0?X3'[181][161]S'3K[181][163]SK[160]8'@[179][161]S[161]'@[179][163]S[163][160][166]3[171][202]C)3[169][170]CB[160]8#B[179][169]CB#)[179][171]C";
6 PRINT")[160]X#B[181][169]CB#)[181][171]C)[160]#K[206][195]#L0?8#([167][192]#LC5[167]A.2#')GC4#')[182]J&MJ&MJ&M&X[165]4C4#M)G[165]5[169][160]";
7 PRINT"C5VJ&MJ&MX[165]4C4#M)_[165]5C5#()[182]&#()G(;@>Q4O4[160][192][171]<_>R'[188][204]$[207][183];[189][205][197][172][213][200]3*U[179][217][164][220][198]>[191]R";
8 PRINT"Y[215][209][175][223][212]*-[194][193][175][215][214][180][221][175][181][174]>_$[223][175][171]:[161])[189][215][174][172][185][174]W[203]"CHR$(14):READO,P,C,D,E,F,FA,V,H,R
9 READA,S,B,U,M,N:SYS1032,V*16+H,R:X=(M+1)*(N+1):DIMX(X),Y(X):R=(null)/180:V=(S-A)/M
10 W=(U-B)/N:G=SIN(D*R):H=COS(D*R):I=SIN(E*R):J=COS(E*R):K=SIN(F*R):L=COS(F*R)
11 PRINT"> BERECHNE POLYEDER ..."X"PUNKTE":D=B:N=N+1:M=M+1:FA=FA*160:FORR=1TOM
12 FORT=1TON:GOSUB19:X=X-O:Y=Y-P:Z=Z-C:F=X*H+Y*G:E=X*G-Y*H:X=F*J+Z*I:X(Q)=4E4
13 IFX<.THENF=Z*J-F*I:Y=FA/X:X(Q)=160+Y*(E*L-F*K):Y(Q)=100+Y*(F*L+E*K)
14 Q=Q+1:B=B+W:NEXT:B=D:A=A+V:NEXT:PRINT"> ZEICHNE ..."2*M*N-M-N"VERBINDUNGEN
15 [129]A[178]2[164]M:C[178](A[171]2)[172]N:D[178]C[170]N:[141]17:E[178]C[171]2:[129]B[178]2[164]N:C[178]E[170]B:D[178]C[170]1:[145]A[171]1[141]17
16 C[178]D[170]N:[141]17:D[178]C[171]1:[141]17:[130]B,A:[153]"> 3D-FUNCTIONS (P) AUGUST'90":[128]
17 [158]49314,X(C),Y(C),X(D),Y(D):[142]: [178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178]
18 [131] 24,-16,24,-35,43,0,2.1: [131] 0,14,1: [131] -12,12,-12,12,24,24
19 X[178]A: Y[178]B: Z[178][190]([186](A[172]A[170]B[172]B)): [142]